home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / OSUtils.el < prev    next >
Encoding:
Text File  |  1994-01-28  |  553 b   |  18 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;;
  4. ;;; GNU Emacs is distributed in the hope that it will be useful,
  5. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  6. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  7. ;;; GNU General Public License for more details.
  8. ;;;
  9.  
  10. ; pascal OSErr HandToHand(Handle *theHndl); 
  11. (deftrap HandToHand ("2077" "0151"    ; move.l ([a7]),a0
  12.                      "a9e1"            ; _HandToHand
  13.                      "225f"            ; move.l (a7)+,a1
  14.                      "2288"            ; move.l a0,(a1)
  15.                      )
  16.   ((theHndl address))
  17.   (short d0))
  18.